home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / ELITEP.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  25 lines
  1. 1 REM! INSERT ELITE SAVES DISK AND RUN       !         THIS PROGRAM.
  2. 2 REM! IT WILL CREATE  A COMMANDER WHO       ! HAS  GREATER  RESOURSES  AT HIS
  3. 3 REM! DISPOSAL IN HIS QUEST FOR FAME.       !        ENJOY THE GAME!
  4. 4 POKE53281,11:POKE53280,11:POKE53272,23
  5. 5 INPUT"[147][159][197]LITE [195]OMMANDER'S NAME ";N$
  6. 6 IFN$=""THENN$="NEMO"
  7. 10 PRINT"[147][154]INSERT ELITE FILE DISK IN DRIVE THEN"
  8. 20 PRINTSPC(12);"PRESS SPACE BAR."
  9. 30 GETS$:IFS$=""THEN30
  10. 40 PRINT"[147][155]CREATING [158][195]OMMANDER ";N$;"[153]...."
  11. 100 OPEN15,8,15,"I"
  12. 120 OPEN2,8,2,N$+",PRG,WRITE"
  13. 130 FORI=2TO80:READ PARM:PRINT#2,CHR$(PARM);:NEXT
  14. 140 CLOSE2:CLOSE15
  15. 145 PRINT"[147][150][195]OMMANDER ";N$;" READY FOR ACTION!"
  16. 146 PRINT"[152]RESET THE [195]64 AND LOAD [197]LITE"
  17. 148 DATA179,37
  18. 150 DATA16,13,186,74,90,72,2,83,183,0
  19. 160 DATA24,207,42,70,64,0,151,151,151
  20. 170 DATA151,0,0,37,0,0,0,0,0,0,0,0,0,0
  21. 180 DATA0,0,0,0,0,0,0,255,255,127,1,255
  22. 190 DATA255,255,0,0,0,58,4,0,11,13,9,0
  23. 200 DATA14,39,0,29,29,24,4,23,56,5,4,5
  24. 210 DATA0,169,0,0,0,181,68,28
  25.